home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / pcscheme / geneva / pcscheme.exe / BIN / F < prev    next >
Encoding:
Text File  |  1993-10-25  |  25.3 KB  |  512 lines

  1. 1,65c1
  2. < #!fast-load 4.0 (sources/lisp/macros.s sources/lisp/basic.lsp sources/lisp/defmacro.lsp sources/lisp/io.lsp sources/lisp/format.lsp sources/lisp/sequence.lsp)
  3. < h0007 008D
  4. < x05CATCH
  5. < x13CREATE-SCHEME-MACRO
  6. < x07EXPLODE
  7. < x07IMPLODE
  8. < x05QUOTE
  9. < x0CFLUID-LAMBDA
  10. < x07CALL/CC
  11. < t< 5 CI Å"
  12. < ╦ Eë"& 44   ï"    @d"COO OOOO;
  13. < z
  14. < h000C 00D7
  15. < x05THROW
  16. < x13CREATE-SCHEME-MACRO
  17. < x07EXPLODE
  18. < x07IMPLODE
  19. < x05QUOTE
  20. < x0CFLUID-BOUND?
  21. < x05FLUID
  22. < x0DCONTINUATION?
  23. < x03AND
  24. < s0010Bad tag on throw
  25. < x05ERROR
  26. < x02IF
  27. < t< 5 CI Å"
  28. < ╦ Eë"& 44   ï"    @d"COOOOOOOOOOOO OO    O
  29. < OOOO O;
  30. < z
  31. < h0004 0037
  32. < x02GO
  33. < x13CREATE-SCHEME-MACRO
  34. < x07EXPLODE
  35. < x07IMPLODE
  36. < t< 5 Cç"CO O O O ;A;
  37. < z
  38. < h000B 015E
  39. < x04PROG
  40. < x13CREATE-SCHEME-MACRO
  41. < x08REVERSE!
  42. < x06LETREC
  43. < lx06RETURNn
  44. < x06LAMBDA
  45. < x07CALL/CC
  46. < x07EXPLODE
  47. < x07IMPLODE
  48. < lx06RETURNlnn
  49. < llx05QUOTElnnn
  50. < t< 5 E0ê C0· 01 4 O OOOOOO;":@ A 0!O O  O O  O  ┐; " k@ É ê " @ ç ê " A @ O ╫@ ç " '@44AO 
  51.  
  52.  @ O O 5
  53.      O 5 " *A @ï"    @O @
  54. < OO  ╨;
  55. < z
  56. < h0004 0018
  57. < x11DEFINE-INTEGRABLE
  58. < lx05QUOTElnn
  59. < x03NIL
  60. < x12PCS*PRIMOP-HANDLER
  61. < tO u ;
  62. < z
  63. < h0004 0018
  64. < x11DEFINE-INTEGRABLE
  65. < x02#T
  66. < x01T
  67. < x12PCS*PRIMOP-HANDLER
  68. < tO u ;
  69. < z
  70. ---
  71. > #!fast-load  Version 3.0   9 Sep 90  19:15:35
  72. 78c14
  73. < h0001 0040
  74. ---
  75. > h0003 002D
  76. 80c16,18
  77. < t<;0!  $ 0 ; ;┼d;─d;
  78. ---
  79. > x10CHAR-UPPER-CASE?
  80. > x10CHAR-LOWER-CASE?
  81. > t<;4 $     5 ;
  82. 209c147,148
  83. < lx0CNAMED-LAMBDAllx04ENDPlx01Xnllx02ORllx04NULLlx01Xnllx03ANDllx03NOTllx05PAIR?lx01Xnnllx0C%%ENDP-ERRORlx01Xnnnn
  84. ---
  85. > lx0CNAMED-LAMBDAllx04ENDPlx01Xnllx02ORllx04NULLlx01Xnllx03ANDllx03NOTllx05PAIR?l
  86. > x01Xnnllx0C%%ENDP-ERRORlx01Xnnnn
  87. 362c301,302
  88. < lx0CNAMED-LAMBDAllx0ECHAR-NOT-EQUALlx02C1lx02C2nllx03NOTllx0ACHAR-EQUALlx02C1lx02C2nnn
  89. ---
  90. > lx0CNAMED-LAMBDAllx0ECHAR-NOT-EQUALlx02C1lx02C2nllx03NOTllx0ACHAR-EQUALlx02C1l
  91. > x02C2nnn
  92. 413c353
  93. < h000A 00A1
  94. ---
  95. > h000B 008F
  96. 420a361
  97. > x10CHAR-ALPHABETIC?
  98. 424c365,366
  99. < t u <;▌<7£ê"<3■ 4 0 ;─ ┼ d ê;0"  4     4;;
  100. ---
  101. > t u <;▌<7£ê"<!■ 4   50"      4
  102. >  4;;
  103. 426c368
  104. < h000A 0097
  105. ---
  106. > h000B 008F
  107. 433a376
  108. > x10CHAR-UPPER-CASE?
  109. 437c380,381
  110. < t u <;▌<7£ê"<)■ 4 0 ;─d;0"  4     4;;
  111. ---
  112. > t u <;▌<7£ê"<!■ 4   50"      4
  113. >  4;;
  114. 439c383
  115. < h000A 0097
  116. ---
  117. > h000B 008F
  118. 446a391
  119. > x10CHAR-LOWER-CASE?
  120. 450c395,396
  121. < t u <;▌<7£ê"<)■ 4 0 ;┼d;0"  4     4;;
  122. ---
  123. > t u <;▌<7£ê"<!■ 4   50"      4
  124. >  4;;
  125. 452c398
  126. < h000A 00A1
  127. ---
  128. > h000B 008F
  129. 459a406
  130. > x10CHAR-ALPHABETIC?
  131. 463c410,411
  132. < t u <;▌<7£ê"<3■ 4 0 ;─ ┼ d ê;0"  4     4;;
  133. ---
  134. > t u <;▌<7£ê"<!■ 4   50"      4
  135. >  4;;
  136. 465c413
  137. < h000D 00DC
  138. ---
  139. > h000C 00AC
  140. 472a421
  141. > x0DCHAR-NUMERIC?
  142. 474,475d422
  143. < c3A
  144. < c2F
  145. 479,480c426,427
  146. < t u <;▌<7£ê"<n■ 4 0 "í í R ;; ┬ "$         ┬ê" └ ê;;;
  147. < 0"   4 4;;
  148. ---
  149. > t u <;▌<7£ê"<>■ 4   4"í í R ;;    0"  
  150. > 4 4;;
  151. 482c429
  152. < h000C 00EC
  153. ---
  154. > h000C 00A7
  155. 490,491c437,438
  156. < c3A
  157. < c2F
  158. ---
  159. > x10CHAR-ALPHABETIC?
  160. > x0DCHAR-NUMERIC?
  161. 495c442
  162. < t u <;▌<7£ê"<~■ 4 0L  $ 0 ; ; ┬ "$ ┬ê" └ ê;;;─ ┼ d ê;    0"  
  163. ---
  164. > t u <;▌<7£ê"<9■ 4   4 $     5 ;    0"  
  165. 556c503
  166. < s0058The third argument to DEFVAR was ~S, which is not a ~
  167. ---
  168. > s0057The third argument to DEFVAR was ~S, which is not a ~
  169. 586c533
  170. < s005EThe third argument to DEFPARAMETER was ~S, which is not a ~
  171. ---
  172. > s005DThe third argument to DEFPARAMETER was ~S, which is not a ~
  173. 611c558
  174. < s005EThe third argument to DEFPARAMETER was ~S, which is not a ~
  175. ---
  176. > s005DThe third argument to DEFPARAMETER was ~S, which is not a ~
  177. 824c771
  178. < s0057A ~A clause in a CASE statement is followed by ~
  179. ---
  180. > s0056A ~A clause in a CASE statement is followed by ~
  181. 944c891
  182. < h000A 012F
  183. ---
  184. > h000A 00ED
  185. 952c899
  186. < s0052The first argument to APPLY, ~S, ~
  187. ---
  188. > s0051The first argument to APPLY, ~S, ~
  189. 956c903
  190. < t▌<■=;▌ ì  $IÉ" 4  $ <ó■ 4   A "  < Y6  < 6■5  < ■@5  q j A j@ q9 q j A j@ q90 ;E"A ⌡C;;0≤   4     4;
  191. ---
  192. > t▌<■=;▌ ì  $IÉ" 4  $ <`■ 4   A "  < 6  9  @ 9 0 ;E"A ⌡C;;0≤   4     4;
  193. 1406c1353
  194. < s0059The first argument to MULTIPLE-VALUE-BIND, ~S, is not a ~
  195. ---
  196. > s0058The first argument to MULTIPLE-VALUE-BIND, ~S, is not a ~
  197. 1408c1355
  198. < s0059The second argument to MULTIPLE-VALUE-BIND, ~S, is not a ~
  199. ---
  200. > s0058The second argument to MULTIPLE-VALUE-BIND, ~S, is not a ~
  201. 1566c1513
  202. < h0011 016A
  203. ---
  204. > h0010 016A
  205. 1572d1518
  206. < x08REVERSE!
  207. 1576c1522
  208. < s005CThe keyword ~S does not have a matching value ~
  209. ---
  210. > s005BThe keyword ~S does not have a matching value ~
  211. 1585,1586c1531,1533
  212. < t<;▌▌ < 6 50 ;▌#▐Aê""<╬■ @    4 @0╥  " !
  213. < 4 ^ "  @  d "      C  É " 8 ═  ╟ └"!  
  214. 4 ╦ x   O   C O  E=! ;;0≤   4 4;ê $ ï; ;
  215. ---
  216. > t<;▌▌ < 6   j;0 ;▌#▐Aê""<╬■ @4 @0╥  " !    4 ^ "  @ 
  217. > d "      C  É " 8 ═  ╟ └"!   4 ╦
  218. > x   O   C O  E=! ;;
  219. 0≤   4 4;ê $ ï; ;
  220. 1597c1544
  221. < h0023 02AE
  222. ---
  223. > h0022 028E
  224. 1606d1552
  225. < x08REVERSE!
  226. 1633,1634c1579,1580
  227. < t<;▌ "0 tq4       
  228. < 4       4 ▌ 
  229. $<$╫6$4$"$$O$$(O$($O$$(O$($ $(O$$((O$($(O((,O(,(,O,,0O,0,0O,,0O((,,O(,(,
  230. O,,0O,0,0O,0,0O004O0404O0044O040O004O0404
  231. O0404O040O00O,,0O((,O$$(▌$("(%$▌,<,y6,,0q,0,=$(,",3,O,,0O,0,0O004O0404O004O,,00O00,,0o,(,$0O004O440 4o 4,O,;<  4 ;      4     4 !4ê" "4 O;;<  4 ;É" @ O ;
  232. ---
  233. > t<;▌ "tqj      4  
  234. > 4 ▌  
  235. $<$╙6$$j$$$"$$O$$(O$($O$$(O$($ $(O$$((O$($(O((,O(,(,O,,0O,0,0O,,0O((,,O(,(, O,,0
  236. O,0,0O,0,0
  237. O004O0404O0044O040O004O0404 O0404O040O00O,,0O((,O$$(▌$("(%$▌,<,y6,,0q,0,=$(,",3,O,,0O,0,0O004O0404O004O,,00O00,,0o,(,$0O004O440 4o 4,O,;<  4 ; 4 4  4ê" !4 O;;<  4 ;É" @ O ;
  238. 1656c1602
  239. < s0054The first argument to DEFSTRUCT, ~S, was not a ~
  240. ---
  241. > s0053The first argument to DEFSTRUCT, ~S, was not a ~
  242. 1781c1727
  243. < s0058The form ~S has fewer arguments than the DEFMACRO ~
  244. ---
  245. > s0057The form ~S has fewer arguments than the DEFMACRO ~
  246. 1790c1736
  247. < h0026 041F
  248. ---
  249. > h0025 041F
  250. 1798d1743
  251. < x08REVERSE!
  252. 1807c1752
  253. < s0056The additional tokens ~S follow ~
  254. ---
  255. > s0055The additional tokens ~S follow ~
  256. 1830,1831c1775,1781
  257. < t<;▌▌< 650 ;▌        #î    @
  258. <  d " T     A ê "  < h■  4     @     A         @ 
  259. O O  ! d " ,     @     A         @ O O  !π "  < ∩■ 4  d " W "  < æ■ 4        A ê "   < 4■ 4  !] 4  # x       @     A         ê " ; d "  < ª■ 4   < ]■ 4     @  O O  !╩ # û0  "  I "  I O O  0╧  " + @ COOOOO  #     A "     !O O O  O   -     A "     "O O O  O      A=!h²;;#0≤   $4% 4;ê $ ï; ;ê $ ï; ;#0"  $4% 4;;#0"  $4% 4;;#0"  $4% 4;;#0"  $4% 4;;#0"  $4% 4;;
  260. ---
  261. > t<;▌▌< 6j;0 ;▌#î@     d " T A ê " 
  262. > < h■  4 @ A @  O O  !
  263. d " , @ A @ O O  !π " 
  264. > < ∩■ 4  d " W " 
  265. > < æ■ 4    A ê "  
  266. > < 4■ 4  !] 4  # x   @ A ê " ; d " 
  267. > < ª■ 4  
  268. > < ]■ 4 @  O O  !╩ # û0  "  I "  I O O  0╧  " + @ COOOOO  # A "     O O O  O   - A "    !O O O  O  A=!h²;;"0≤   #4$ 4;ê $ ï; ;ê $ ï; ;"0"  #4$ 4;;"0"  #4$ 4;;"0"  #4$ 4;;"0"  #4$ 4;;"0"  #4$ 4;;
  269. 1922c1872
  270. < h0010 010F
  271. ---
  272. > h000F 010B
  273. 1932d1881
  274. < x08REVERSE!
  275. 1935c1884
  276. < s0063The last variable in a SETQ or SETF form, ~S, ~
  277. ---
  278. > s0062The last variable in a SETQ or SETF form, ~S, ~
  279. 1940,1941c1889,1890
  280. < t<;▌ "D OOOo▌<6    4
  281. < O; 5 0 ;"XAê" <K■ @ 4 @C  4  O E  ó;;
  282. 0≤   4 4;
  283. ---
  284. > t<;▌ "@ OOOo▌<6j    O; 5 0 ;"XAê"
  285. > <K■ @ 4 @C  4  O E  ó;; 0≤   
  286. 4 4;
  287. 2058c2007
  288. < s009CThe first argument to DOLIST was ~S, which does not match ~
  289. ---
  290. > s009AThe first argument to DOLIST was ~S, which does not match ~
  291. 2096c2045
  292. < s009FThe first argument to DOTIMES was ~S, which does not match ~
  293. ---
  294. > s009DThe first argument to DOTIMES was ~S, which does not match ~
  295. 2150c2099
  296. < s0074The token following &AUX, ~S, is an &keyword, which ~
  297. ---
  298. > s0073The token following &AUX, ~S, is an &keyword, which ~
  299. 2153c2102
  300. < s0054The &AUX declaration, ~S, ~
  301. ---
  302. > s0053The &AUX declaration, ~S, ~
  303. 2155c2104
  304. < s006EThe token following the &AUX keyword, ~S, ~
  305. ---
  306. > s006DThe token following the &AUX keyword, ~S, ~
  307. 2167c2116
  308. < s0055The &OPTIONAL declaration, ~S, was not a list ~
  309. ---
  310. > s0054The &OPTIONAL declaration, ~S, was not a list ~
  311. 2177c2126
  312. < h0012 015B
  313. ---
  314. > h0011 015B
  315. 2187d2135
  316. < x08REVERSE!
  317. 2196,2197c2144,2145
  318. < t<;▌▌< 6    50 ;#@ " ! É "     
  319. < O   O  !╤ d "       !╝
  320. d "       !º d "       !Æ "  "  O O O   o ê  $dA" É"OOOO /@OOCOOOOOOOA!°■;
  321. ---
  322. > t<;▌▌< 6j;0 ;#@ " ! É "         O   O  !╤
  323. >  d "       !╝ d "       !º
  324. d "       !Æ "  "  O O O   o ê  $dA" É"OOOO /@OOCOOOOOOOA!°■;
  325. 2323c2271,2272
  326. < lx05QUOTEllx09&OPTIONALlx05&RESTlx04&KEYlx11&ALLOW-OTHER-KEYSlx04&AUXlx05&BODYlx06&WHOLElx0C&ENVIRONMENTnn
  327. ---
  328. > lx05QUOTEllx09&OPTIONALlx05&RESTlx04&KEYlx11&ALLOW-OTHER-KEYSlx04&AUXlx05&BODYl
  329. > x06&WHOLElx0C&ENVIRONMENTnn
  330. 2395c2344
  331. < x02G0
  332. ---
  333. > x06%00000
  334. 2453c2402
  335. < h0014 0116
  336. ---
  337. > h0013 010C
  338. 2466,2467c2415
  339. < x10SCHEME-READ-CHAR
  340. < x0CUN-READ-CHAR
  341. ---
  342. > x0BUNREAD-CHAR
  343. 2475c2423
  344. < 5  e""; 5
  345.  e"7"$ <S■ 4  @; e" $  4;;;0"  4 4;;
  346. ---
  347. > 5  e"";╝;  e"7"$ 
  348. <I■ 4  @; e"$ ╝;;;0"  4 4;;
  349. 2540c2488
  350. < s0061The first argument to WITH-OPEN-STREAM must be ~
  351. ---
  352. > s0060The first argument to WITH-OPEN-STREAM must be ~
  353. 2542c2490
  354. < s0052The stream variable argument to WITH-OPEN-STREAM ~
  355. ---
  356. > s0051The stream variable argument to WITH-OPEN-STREAM ~
  357. 2573c2521
  358. < s0067The first argument to WITH-INPUT-FROM-STRING must be ~
  359. ---
  360. > s0066The first argument to WITH-INPUT-FROM-STRING must be ~
  361. 2575c2523
  362. < s0058The stream variable argument to WITH-INPUT-FROM-STRING ~
  363. ---
  364. > s0057The stream variable argument to WITH-INPUT-FROM-STRING ~
  365. 2599c2547
  366. < s006FThe first argument to WITH-OUTPUT-TO-STRING must be ~
  367. ---
  368. > s006EThe first argument to WITH-OUTPUT-TO-STRING must be ~
  369. 2601c2549
  370. < s0053The two-argument form of WITH-OUTPUT-TO-STRING is not ~
  371. ---
  372. > s0052The two-argument form of WITH-OUTPUT-TO-STRING is not ~
  373. 2603c2551
  374. < s0057The stream variable argument to WITH-OUTPUT-TO-STRING ~
  375. ---
  376. > s0056The stream variable argument to WITH-OUTPUT-TO-STRING ~
  377. 2778c2726
  378. < h000C 00BE
  379. ---
  380. > h000B 00B7
  381. 2789d2736
  382. < x10SCHEME-READ-CHAR
  383. 2791,2792c2738,2739
  384. < t u ▌< =;▌<7@ A   "  @ A  @ê"  4     4"
  385. < 4  4 $ $5
  386. ---
  387. > t u ▌< =;▌<7@ A   "  @ A  @ê"  4     4"╝  4 $
  388. > $5
  389. 2795c2742
  390. < x0CUN-READ-CHAR
  391. ---
  392. > x0BUNREAD-CHAR
  393. 2798c2745
  394. < lx0CUN-READ-CHARn
  395. ---
  396. > lx0BUNREAD-CHARn
  397. 2945c2892
  398. < h0036 05EE
  399. ---
  400. > h0036 05E1
  401. 2992a2940,2941
  402. > x10CHAR-WHITESPACE?
  403. > x10CHAR-LOWER-CASE?
  404. 2994,2995d2942
  405. < x0DSCHEME-MEMBER
  406. < lc20lc09lc0Alc0Clc0Dn
  407. 3004c2951
  408. < ═ 4 4!éæ"8 4<░6 4!Bï", 4 <ö6 4 !4"& "      4 !╒#╝ç"! 4  4!æà"!   4!h4" 4!A4" 4!4"  4!≤<┌▌!"Å"7" "#4   4!óÉ#Ç═▌$% %╞ ▌& '$"$< $<$√6$$"$% "(4 $ 
  409. $<$y6$$  ! % 4$ $== ) 4= * 4= ;< '+ 5 %╟, └ ê " ( └ ê ê "  ,4  5 ▌-.< '+ 5 %╟00  ê "
  410. 0  ê ê "     ./5 ;┼d; 015 ▌2%33 4  < 6 3 5 < %╞ + 5 %╟, └ ê " 3 └ ê ê "  ,4  5 0 ;#îïê":4 4  0╒·4 d ê"5 4 @  0î·A!m ;Æê"5 4 ⁿ ⁿⁿ  1=·<╡  ⌐ + 5 
  411. ---
  412. > ═ 4 4!éæ"8 4<ú6 4!Bï", 4 <ç6 4 !4"& "      4 !╒#╝ç"! 4  4!æà"!   4!h4" 4!A4" 4!4"  4!≤<═▌!"Å"7" "#4   4!óÉ#Ç═▌$% %╞ ▌& '$"$< $<$√6$$"$% "(4 $ 
  413. $<$y6$$  ! % 4$ $== ) 4= * 4= ;< '+ 5 %╟, └ ê " ( └ ê ê "  ,4  5 ▌-.< '+ 5 %╟/4 ê " 04 ê ê "     .15 ;▌2%33 4  < 6 3 5 < %╞ + 5 %╟, └ ê " 3 └ ê ê "  ,4  5 0 ;#îïê":4 4  0Γ·4 d ê"5 4 @  0Ö·A!m ;Æê"5 4 ⁿ ⁿⁿ  1J·<╡  ⌐ + 5 
  414. 3085c3032
  415. < s0056Can't bind *STANDARD-INPUT* to a file being ~
  416. ---
  417. > s0055Can't bind *STANDARD-INPUT* to a file being ~
  418. 3091c3038
  419. < s0056Can't bind *STANDARD-OUTPUT* to a file being ~
  420. ---
  421. > s0055Can't bind *STANDARD-OUTPUT* to a file being ~
  422. 3154c3101
  423. < x02G1
  424. ---
  425. > x06%00000
  426. 3213c3160,3161
  427. < lx0CINPUT-STREAMlx0DOUTPUT-STREAMlx08NEXT-ARGlx0BNUMERIC-ARGlx0BATSIGN-FLAGlx0ACOLON-FLAGn
  428. ---
  429. > lx0CINPUT-STREAMlx0DOUTPUT-STREAMlx08NEXT-ARGlx0BNUMERIC-ARGlx0BATSIGN-FLAGl
  430. > x0ACOLON-FLAGn
  431. 3225c3173,3174
  432. < lx0CINPUT-STREAMlx0DOUTPUT-STREAMlx08NEXT-ARGlx0BNUMERIC-ARGlx0BATSIGN-FLAGlx0ACOLON-FLAGn
  433. ---
  434. > lx0CINPUT-STREAMlx0DOUTPUT-STREAMlx08NEXT-ARGlx0BNUMERIC-ARGlx0BATSIGN-FLAGl
  435. > x0ACOLON-FLAGn
  436. 3241c3190,3191
  437. < lx0CINPUT-STREAMlx0DOUTPUT-STREAMlx08NEXT-ARGlx0BNUMERIC-ARGlx0BATSIGN-FLAGlx0ACOLON-FLAGn
  438. ---
  439. > lx0CINPUT-STREAMlx0DOUTPUT-STREAMlx08NEXT-ARGlx0BNUMERIC-ARGlx0BATSIGN-FLAGl
  440. > x0ACOLON-FLAGn
  441. 3264c3214,3215
  442. < lx0CINPUT-STREAMlx0DOUTPUT-STREAMlx08NEXT-ARGlx0BNUMERIC-ARGlx0BATSIGN-FLAGlx0ACOLON-FLAGn
  443. ---
  444. > lx0CINPUT-STREAMlx0DOUTPUT-STREAMlx08NEXT-ARGlx0BNUMERIC-ARGlx0BATSIGN-FLAGl
  445. > x0ACOLON-FLAGn
  446. 3274c3225
  447. < x0CUN-READ-CHAR
  448. ---
  449. > x0BUNREAD-CHAR
  450. 3353c3304,3305
  451. < lx0CNAMED-LAMBDAllx05ERRORlx0DFORMAT-STRINGx0BFORMAT-ARGSllx0CSCHEME-ERRORllx05APPLYllx08FUNCTIONlx06FORMATnlx03NILlx0DFORMAT-STRINGlx0BFORMAT-ARGSnnn
  452. ---
  453. > lx0CNAMED-LAMBDAllx05ERRORlx0DFORMAT-STRINGx0BFORMAT-ARGSllx0CSCHEME-ERRORl
  454. > lx05APPLYllx08FUNCTIONlx06FORMATnlx03NILlx0DFORMAT-STRINGlx0BFORMAT-ARGSnnn
  455. 3360c3312,3322
  456. < llx05ARRAYlx07VECTOR?ls0008an arraynllx09CHARACTERlx05CHAR?ls000Ba characternllx11COMPILED-FUNCTIONlx0APROCEDURE?ls0013a compiled functionnllx04CONSlx05PAIR?ls000Ba cons cellnllx0CDOUBLE-FLOATlx06FLOAT?ls0028a double-precision floating point numbernllx05FLOATlx06FLOAT?ls0017a floating point numbernllx07INTEGERlx08INTEGER?ls000Aan integernllx04LISTlx05LISTPls0006a listnllx04NULLlx05NULL?ls000Ethe empty listnllx06NUMBERlx07NUMBER?ls0008a numbernllx0CSIMPLE-ARRAYlx07VECTOR?ls000Ea simple arraynllx11SIMPLE-BIT-VECTORlx07VECTOR?ls0013a simple bit vectornllx0DSIMPLE-STRINGlx07STRING?ls000Fa simple stringnllx0DSIMPLE-VECTORlx07VECTOR?ls000Fa simple vectornllx0DSTANDARD-CHARlx05CHAR?ls0014a standard characternllx06STRINGlx07STRING?ls0008a stringnllx0BSTRING-CHARlx05CHAR?ls0012a string characternllx06SYMBOLlx07SYMBOL?ls0008a symbolnllx06VECTORlx07VECTOR?ls0008a vectornn
  457. ---
  458. > llx05ARRAYlx07VECTOR?ls0008an arraynllx09CHARACTERlx05CHAR?ls000Ba characternl
  459. > lx11COMPILED-FUNCTIONlx0APROCEDURE?ls0013a compiled functionnllx04CONSlx05PAIR?l
  460. > s000Ba cons cellnllx0CDOUBLE-FLOATlx06FLOAT?ls0028a double-precision floating point numbernl
  461. > lx05FLOATlx06FLOAT?ls0017a floating point numbernllx07INTEGERlx08INTEGER?ls000Aan integernl
  462. > lx04LISTlx05LISTPls0006a listnllx04NULLlx05NULL?ls000Ethe empty listnllx06NUMBERl
  463. > x07NUMBER?ls0008a numbernllx0CSIMPLE-ARRAYlx07VECTOR?ls000Ea simple arraynllx11SIMPLE-BIT-VECTORl
  464. > x07VECTOR?ls0013a simple bit vectornllx0DSIMPLE-STRINGlx07STRING?ls000Fa simple stringnl
  465. > lx0DSIMPLE-VECTORlx07VECTOR?ls000Fa simple vectornllx0DSTANDARD-CHARlx05CHAR?l
  466. > s0014a standard characternllx06STRINGlx07STRING?ls0008a stringnllx0BSTRING-CHARl
  467. > x05CHAR?ls0012a string characternllx06SYMBOLlx07SYMBOL?ls0008a symbolnllx06VECTORl
  468. > x07VECTOR?ls0008a vectornn
  469. 3466c3428
  470. < h0016 013D
  471. ---
  472. > h0015 013D
  473. 3481,3483c3443,3444
  474. < lx02G1n
  475. < x02G1
  476. < x02G0
  477. ---
  478. > lx06%00000n
  479. > x06%00000
  480. 3490c3451
  481. <   "p @▌ 
  482. 
  483. ê ▌ $G
  484. ï" <Ö6  $ <O■ 
  485. 4  == A= à;Aê" C  4A ┘0"  4 4;;
  486. 0á  ;
  487. ---
  488. >   "p @▌ 
  489. 
  490. ê ▌ $G
  491. ï" <Ö6  $ <O■ 
  492. 4  == A= à;Aê" C  4A ┘0"  4 4;;
  493. 0á  ;
  494. 3492c3453
  495. < h0008 0048
  496. ---
  497. > h0007 0045
  498. 3499d3459
  499. < x08REVERSE!
  500. 3501c3461
  501. < t u <;▌ < 7   4 5 
  502. ---
  503. > t u <;▌ < 7 j  5 
  504. 3686c3646
  505. < s0057The :COUNT argument to DELETE, ~S, ~
  506. ---
  507. > s0056The :COUNT argument to DELETE, ~S, ~
  508. 3728c3688
  509. < h0017 0201
  510. ---
  511. > h0016 0201
  512. 3735d3694
  513. < x08REVERSE!
  514. 3748c3707
  515. < x02G0
  516. ---
  517. > x06%00000
  518. 3752,3756c3711,3715
  519. < t<;▌▌<╠6< 650 ;"D@  4 ê"<S■ @    4 E ╢;;
  520. < 0≤    4 4;
  521. < 0"   4 4;;▌
  522. 0 ;▌"5▌ < W6  ê "
  523. < O  =A= └;;
  524. < 0≤    4 4;0 ;"sAê"<²■■ @4 @@ d "8"<{ ■ @4 C O E ç;
  525. ---
  526. > t<;▌▌<╠6< 6j;0 ;"D@  4 ê"<S■ @4 E ╢;;    0≤   
  527. > 4 4;    0"  
  528. > 4 4;;▌ 
  529. 0 ;▌"5▌ < W6  ê "
  530. > O  =A= └;;    0≤   
  531. > 4 4;0 ;"sAê"<²■■ @4 @@ d "8"<{ ■ @4 C O E ç;
  532. 3895c3854
  533. < h001A 01F0
  534. ---
  535. > h0019 01F0
  536. 3910d3868
  537. < x08REVERSE!
  538. 3923c3881
  539. <  0ç  " A < O6  " ▌ 
  540. <√6
  541. 5  <Σ 5  æ " 2 $  ⌐ R  ▌ ¿▌<g6; Å "   $╞ º; <     ■5 0"  4 4;;<  5  P ⁿ ⁿ ⁿⁿⁿ ⁿ;;< R  5 @ A  
  542. O 
  543. ;<  5 @ A  ;ê $ ï; ;
  544. ---
  545. >  0ç  " A < O6  " ▌ 
  546. <√6
  547. j;  <Σ 5  æ " 2 $  ⌐ R  ▌ ¿▌<g6; Å "   $╞ º; <     ■5 0"  4 4;;<  5  P ⁿ ⁿ ⁿⁿⁿ ⁿ;;< R  5 @ A  
  548. O 
  549. ;<  5 @ A  ;ê $ ï; ;
  550. 3977c3935
  551. < s005FThe first argument to CONCATENATE, ~S, ~
  552. ---
  553. > s005EThe first argument to CONCATENATE, ~S, ~
  554.